#!/usr/bin/perl
%phoneBook = (
	"oanh"=>"043128345",
	"hien dau be"=>"043156668",
	"manh"=>"0431286996",
);

@names = keys %phoneBook;
@vals = values %phoneBook;
print"\n";
#print scalar @nm; # ko dung thi se bi canh bao
print"\n";
while(($key, $val) = each %phoneBook) {
	print "$key => $val\n";
}

my %math_scores = (
  Taro => 89,
  Naoko => 54,
  Kenji => 54
);

# 1: ハッシュのすべての要素を出力する
print "1: ハッシュのすべての要素を出力する\n";
for my $key (keys %math_scores) {
  print "%math_scores{$key} = " . $math_scores{$key} . "\n";
}
print "\n";
